10 DIM B$(10),C$(10),D$(1),S$(26):NL=5
:WD=13:C$="..........":S$="":I=INT(RND
(0)*WD):FOR A=1 TO I:READ B$:NEXT A
20 GRAPHICS 1:POSITION 0,0:BL=LEN(B$):
FOR A=1 TO BL:? #6;C$(A,A);:NEXT A:POS
ITION 13,0:? #6;"lives:";NL
30 IF C$(1,BL)=B$ THEN POSITION 0,5:?
#6;"congratulations !!!":FOR A=1 TO 25
00:NEXT A:RUN
40 POSITION 0,8:? #6;"so far: ";S$:? "
GUESS LETTER ":INPUT D$:IF D$="" THEN
GOTO 40
50 OK=0:FOR A=1 TO LEN(B$)
60 IF B$(A,A)=D$ THEN C$(A,A)=D$:OK=1
70 NEXT A:IF OK=0 THEN NL=NL-1
80 IF NL<1 THEN POSITION 0,5:? #6;"SOR
RY- YOU LOST":FOR A=1 TO 2500:NEXT A:R
UN
90 S$(LEN(S$)+1)=D$:GOTO 20
100 DATA LAPTOP,CHAIR,COFFEE,TRAINER,J
AGUAR,DATABASE,BANANA,POTATO,XLYOPHONE
,PARADIGM,SHARK,TURQUOISE,CHOCOLATE